home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / QDOffscreen.p < prev    next >
Encoding:
Text File  |  1989-10-13  |  2.8 KB  |  100 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Monday, August 21, 1989 at 4:36 PM
  3.     QDOffscreen.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.     Copyright Apple Computer, Inc.    1985-1989
  7.     All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT QDOffscreen;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingQDOffscreen}
  21. {$SETC UsingQDOffscreen := 1}
  22.  
  23. {$I+}
  24. {$SETC QDOffscreenIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingQuickdraw}
  27. {$I $$Shell(PInterfaces)Quickdraw.p}
  28. {$ENDC}
  29. {$SETC UsingIncludes := QDOffscreenIncludes}
  30.  
  31. CONST
  32.  
  33. { New error codes }
  34.  
  35. cDepthErr = -157;    {invalid pixel depth}
  36.  
  37.  
  38. TYPE
  39.  
  40. GWorldFlags = SET OF (pixPurge,noNewDevice,GWorldFlags2,GWorldFlags3,GWorldFlags4,
  41.     GWorldFlags5,pixelsPurgeable,pixelsLocked,GWorldFlags8,GWorldFlags9,GWorldFlags10,
  42.     GWorldFlags11,GWorldFlags12,GWorldFlags13,GWorldFlags14,GWorldFlags15,
  43.     mapPix,newDepth,alignPix,newRowBytes,reallocPix,GWorldFlags21,GWorldFlags22,
  44.     GWorldFlags23,GWorldFlags24,GWorldFlags25,GWorldFlags26,GWorldFlags27,
  45.     clipPix,stretchPix,ditherPix,gwFlagErr);
  46.  
  47.  
  48. GWorldPtr = CGrafPtr;
  49.  
  50.  
  51.  
  52. FUNCTION NewGWorld(VAR offscreenGWorld: GWorldPtr;PixelDepth: INTEGER;boundsRect: Rect;
  53.     cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): QDErr;
  54.     INLINE $7000,$AB1D;
  55. FUNCTION LockPixels(pm: PixMapHandle): BOOLEAN;
  56.     INLINE $7001,$AB1D;
  57. PROCEDURE UnlockPixels(pm: PixMapHandle);
  58.     INLINE $7002,$AB1D;
  59. FUNCTION UpdateGWorld(VAR offscreenGWorld: GWorldPtr;pixelDepth: INTEGER;
  60.     boundsRect: Rect;cTable: CTabHandle;aGDevice: GDHandle;flags: GWorldFlags): GWorldFlags;
  61.     INLINE $7003,$AB1D;
  62. PROCEDURE DisposeGWorld(offscreenGWorld: GWorldPtr);
  63.     INLINE $7004,$AB1D;
  64. PROCEDURE GetGWorld(VAR port: CGrafPtr;VAR gdh: GDHandle);
  65.     INLINE $7005,$AB1D;
  66. PROCEDURE SetGWorld(port: CGrafPtr;gdh: GDHandle);
  67.     INLINE $7006,$AB1D;
  68. PROCEDURE CTabChanged(ctab: CTabHandle);
  69.     INLINE $7007,$AB1D;
  70. PROCEDURE PixPatChanged(ppat: PixPatHandle);
  71.     INLINE $7008,$AB1D;
  72. PROCEDURE PortChanged(port: GrafPtr);
  73.     INLINE $7009,$AB1D;
  74. PROCEDURE GDeviceChanged(gdh: GDHandle);
  75.     INLINE $700A,$AB1D;
  76. PROCEDURE AllowPurgePixels(pm: PixMapHandle);
  77.     INLINE $700B,$AB1D;
  78. PROCEDURE NoPurgePixels(pm: PixMapHandle);
  79.     INLINE $700C,$AB1D;
  80. FUNCTION GetPixelsState(pm: PixMapHandle): GWorldFlags;
  81.     INLINE $700D,$AB1D;
  82. PROCEDURE SetPixelsState(pm: PixMapHandle;state: GWorldFlags);
  83.     INLINE $700E,$AB1D;
  84. FUNCTION GetPixBaseAddr(pm: PixMapHandle): Ptr;
  85.     INLINE $700F,$AB1D;
  86. FUNCTION NewScreenBuffer(globalRect: Rect;purgeable: BOOLEAN;VAR gdh: GDHandle;
  87.     VAR offscreenPixMap: PixMapHandle): QDErr;
  88.     INLINE $7010,$AB1D;
  89. PROCEDURE DisposeScreenBuffer(offscreenPixMap: PixMapHandle);
  90.     INLINE $7011,$AB1D;
  91. FUNCTION GetGWorldDevice(offscreenGWorld: GWorldPtr): GDHandle;
  92.     INLINE $7012,$AB1D;
  93.  
  94. {$ENDC}    { UsingQDOffscreen }
  95.  
  96. {$IFC NOT UsingIncludes}
  97.     END.
  98. {$ENDC}
  99.  
  100.